home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 3 / BBS in a box - Trilogy III.iso / Files / Prog / U-Z / ViewIt™ 2.2 Shareware / Projects / THINK Pascal 4.0.2 Demos / FaceStorLP.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-09-01  |  5.5 KB  |  268 lines  |  [TEXT/PJMM]
  1. {FaceWare 2.2 Commands & Global Record}
  2. {©FaceWare 1989-93.  All Rights Reserved.}
  3.  
  4. unit FaceStorLP;
  5.  
  6. interface
  7.  
  8.     const
  9.         DoInit = -61;
  10.         DoPrep = -62;
  11. {FaceIt commands}
  12.         DoLoop = 0;
  13.         DoEvnt = -51;
  14.         DoMenu = -52;
  15.         GetMsg = -55;
  16. {ViewIt commands}
  17.         DoUpdt2 = -53;
  18.         DoUnld = -63;
  19.         ChgCur = 121;
  20.         PstEvt = 122;
  21.         PopMen = 123;
  22.         PstNot = 124;
  23.         SetIdl = 131;
  24.         EndIdl = 132;
  25.         ShoAlt = 153;
  26.         StpAlt = 154;
  27.         NotAlt = 155;
  28.         CtnAlt = 156;
  29.         SetItm1 = 160;
  30.         SetItm2 = 161;
  31.         GetItm = 162;
  32.         FixFSC = 163;
  33.         SelFSC = 164;
  34.         ChkMem = 171;
  35.         NewBlk = 172;
  36.         PrgCmd = 173;
  37.         GetFgC = 178;
  38.         GetBkC = 179;
  39.         SetFgC = 180;
  40.         SetBkC = 181;
  41.         SetFSS = 183;
  42.         SetPal2 = 185;
  43.         StdOpn = 201;
  44.         StdSav = 202;
  45.         GetRef = 205;
  46.         SetRef = 206;
  47.         SetTyp = 208;
  48.         SndBhd = 250;
  49.         GetNam = 251;
  50.         SetNam = 252;
  51.         MovRec = 254;
  52.         MovAlt = 255;
  53.         MovDlg = 256;
  54.         MovWin = 257;
  55.         DrgWnd = 259;
  56.         ShoStr = 261;
  57.         StpStr = 262;
  58.         NotStr = 263;
  59.         CtnStr = 264;
  60.         GetStd = 301;
  61.         SetStd = 302;
  62.         SavDlg = 356;
  63.         SavWin = 357;
  64.         SetSub = 451;
  65.         TrmStr = 452;
  66.         SetPrm = 453;
  67.         CnvStr = 454;
  68.         FndTxt = 455;
  69.         NumToS = 471;
  70.         SToNum = 481;
  71.         GetStr = 491;
  72.         SetStr = 492;
  73.         SrtLst = 493;
  74.         DupLst = 494;
  75.         AddVew = -1200;
  76.         NewWnd = -1201;
  77.         EndWnd = -1202;
  78.         MdlWnd = -1203;
  79.         SizWnd = -1204;
  80.         MovWnd = -1205;
  81.         ShoWnd = -1206;
  82.         HidWnd = -1207;
  83.         GetWVC = -1208;
  84.         GetWnd = -1209;
  85.         LnkCtl = -1210;
  86.         GetCtl = -1211;
  87.         ShoCtl = -1212;
  88.         GetVal = -1213;
  89.         SetVal = -1214;
  90.         OvrCtl = -1215;
  91.         AddCtl = -1216;
  92.         DrwCtl = -1217;
  93.         ScrCtl = -1218;
  94.         ActCtl = -1219;
  95.         SelCtl = -1220;
  96.         DspCtl = -1221;
  97.         StlCtl = -1222;
  98.         SavCtl = -1223;
  99.         SavWnd = -1224;
  100.         SizCtl = -1225;
  101.         MovCtl = -1226;
  102.         ClrCtl = -1227;
  103.         SetVCod = -1228;
  104.         HlpWnd = -1229;
  105.         HitCtl = -1230;
  106.  
  107.     type
  108. {Global ViewIt record}
  109.         FacePtr = ^FaceRec;
  110.         FaceRec = record
  111. {program-wide info}
  112.                 fHead: array[1..8] of integer;
  113.                 fOffPort: GrafPtr;
  114.                 fCOffPort: GrafPtr;
  115.                 fActiveWnd: WindowPtr;
  116.                 fActiveRec: longint;
  117.                 fActiveID: integer;
  118.                 fActiveResID: integer;
  119.                 fMsgCount: integer;
  120.                 fFlags: longint;
  121.                 fStuff: Ptr;
  122.                 fHeapBuff: longint;
  123.                 fEnvFlags: longint;
  124.                 fSleep: longint;
  125.                 fScreenRect: Rect;
  126.                 fDragRect: Rect;
  127.                 fFrontSleep: longint;
  128.                 fBackSleep: longint;
  129.                 fFiller1: integer;
  130.                 fStdBlock: Handle;
  131.                 fStdCount: integer;
  132.                 fSysEnvArr: array[1..8] of integer;
  133.                 fApplVRef: integer;
  134.                 fCreator: OSType;
  135.                 fRefCon: longint;
  136.                 fFiller2: array[1..7] of integer;
  137.                 fCursor: integer;
  138.                 fFontMenu: MenuHandle;
  139.                 fSizeMenu: MenuHandle;
  140.                 fStyleMenu: MenuHandle;
  141.                 fColorMenu: MenuHandle;
  142.                 fFiller3: signedbyte;
  143.                 fI1Err: signedbyte;
  144.                 fI2Err: integer;
  145.                 fI4Err: longint;
  146.                 fI8Err: computational;
  147.                 fR4Err: real;
  148.                 fR8Err: double;
  149.                 fR10Err: array[1..5] of integer;
  150.                 fR12Err: array[1..6] of integer;
  151.                 fFiller4: array[1..125] of integer;
  152.                 fWDEF: longint;
  153.                 fGlueData: longint;
  154.                 fWaitNextEvent: longint;
  155.                 fGetNewWindow: longint;
  156.                 fGetNewCWindow: longint;
  157.                 fDisposeWindow: longint;
  158.                 fFiller5: array[1..4] of longint;
  159.                 fActiveWindow: longint;
  160.                 fSelectWindow: longint;
  161.                 fUpdateOther: longint;
  162.                 fFiller6: array[1..9] of longint;
  163.                 fEvent: EventRecord;
  164.                 fFiller7: array[1..225] of integer;
  165. {utility scratch variables}
  166.                 uHead: array[1..8] of integer;
  167.                 uI2: integer;
  168.                 uI4: longint;
  169.                 uR4: real;
  170.                 uR8: double;
  171.                 uR10: array[1..5] of integer;
  172.                 uR12: array[1..6] of integer;
  173.                 uPt: Point;
  174.                 uRect: Rect;
  175.                 uCommand: longint;
  176.                 uParam: array[1..4] of longint;
  177.                 uResult: longint;
  178.                 uMenuID: longint;
  179.                 uMenuItem: longint;
  180.                 uString: Str255;
  181.                 uName: Str255;
  182.                 uRGB: RGBColor;
  183.                 uStyle: style;
  184.                 uI1: signedbyte;
  185.                 uI8: computational;
  186.                 uMenuHdl: MenuHandle;
  187. {window-related info}
  188.                 vHead: array[1..8] of integer;
  189.                 vErr: integer;
  190.                 vCDEF: ProcPtr;
  191.                 vSelectCtl: ControlHandle;
  192.                 vSelectRec: longint;
  193.                 vSelectID: integer;
  194. {info returned by enabled items}
  195.                 wiHit: integer;
  196.                 wvHit: integer;
  197.                 wcHit: integer;
  198.                 wClick: integer;
  199.                 wEvent: EventRecord;
  200. {window info returned by GetWnd}
  201.                 wWindow: WindowPtr;
  202.                 wResID: integer;
  203.                 wCount: integer;
  204.                 wvCount: integer;
  205.                 wiCount: integer;
  206. {control info returned by GetCtl}
  207.                 cControl: ControlHandle;
  208.                 ciIndex: integer;
  209.                 cvIndex: integer;
  210.                 ccIndex: integer;
  211.                 cBaseID: integer;
  212. {info copied from "cControl" block...}
  213.                 cNext: ControlHandle;
  214.                 cOwner: WindowPtr;
  215.                 cRect: Rect;
  216.                 cVis: signedByte;
  217.                 cHilite: signedByte;
  218.                 cValue: integer;
  219.                 cMin: integer;
  220.                 cMax: integer;
  221.                 cInfo: Handle;
  222.                 cLoData: Handle;
  223.                 cAction: ProcPtr;
  224.                 cRefCon: longint;
  225.                 cTitle: Str255;
  226. {info copied from "cInfo" block...}
  227.                 cStuff: array[1..6] of integer;
  228.                 cTmplRefCon: longint;
  229.                 cPtr: Ptr;
  230.                 cHiData: Handle;
  231.                 cView: ControlHandle;
  232.                 cOldRect: Rect;
  233.                 cClip: Rect;
  234.                 cContent: Rect;
  235.                 cLimit: Rect;
  236.                 cType: longint;
  237.                 cVarCode: integer;
  238.                 cResType: ResType;
  239.                 cResID: integer;
  240.                 cResHdl: Handle;
  241.                 cPrivate: longint;
  242.                 cFiller: signedByte;
  243.                 cCmdKey: signedByte;
  244.                 cPnRound: integer;
  245.                 cPnSize: Point;
  246.                 cTxJust: signedByte;
  247.                 cTxFace: Style;
  248.                 cTxSize: integer;
  249.                 cTxFont: integer;
  250.                 cDataType: integer;
  251.                 cDataDigits: signedByte;
  252.                 cDataFormat: signedByte;
  253.                 cDataOffset: integer;
  254.                 cDataPtr: Ptr;
  255.                 cStorType: integer;
  256.                 cStorPtr: longint;
  257.                 cColors: CCTabHandle;
  258.                 cOverride: ProcPtr;
  259.                 cCount: integer;
  260.                 cString: Str255;
  261. {private debugging table}
  262.                 xEntries: integer;
  263.                 xTable: array[1..40] of longint;
  264.             end;
  265.  
  266. implementation
  267.  
  268. end.